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BUMPAS REVIEWS 


This is the first issue of the ACE Newsletter in which all the articles 
are edited using the Atari 520 ST. I’m using ST Writer (Atari Writer ported 
over) as my word processor. It's really nice having the full 80 columns 
with which to work. Now | can see better what the article will look like 
after it's printed. 

$10 to The Soft Cellar, 29 Red Cedar Drive, Rochester, NY 14616 
will get you “T: A Text Display Device” which is an autoloading machine 
language utility to display text directly on any graphics screen. An APX 
award-winner. 

WARNING: If you're using DOS2.5XL (the patch to your DOS 2.5 
appears in this issue), better keep a copy of your original DOS 2.5. The 
patch apparently conflicts with the memory location used by 
SETUPCOM to store the RS232 handler. | tried to setup an autoboot 


modem program and couldn't get the handler to load when created with ` 


DOS 2.5XL. 

Otherwise, DOS 2.5XL seems great! It puts the entire DOS-DUP 
system into the unused area of memory in the lower 64k of the XE/XL 
machines. With an XE you can then erase the DOS and DUP from the 
ramdisk and free up the entire 499 sectors for storage. You can still call 
up DOS at any time with no further disk reads. 


PANZER GRENADIER 


Panzer Grenadier (SSI, $40) is Roger Damon’s latest work. He's 
still perfecting the game system he developed with Operation Whirlwind 
and carried through Fire Fight. Five scenarios, each with three levels of 
difficulty give this novice to intermediate level game (in complexity) 
enough challenge to keep the experts busy, too. 

The scenarios are all WW2 Eastern Front scenarios for one player 
commanding the Germans against hordes of Russians. The line-of-sight 
rules for the human player seem more realistic than in his previous games. 
Once in awhile you get a shot you might not expect. And the Russians 
seem to be able to fire through any obstruction to get at you. 

The maps are plenty large enough for the units commanded. Terrain 
consists of woods, towns, rivers, hilltops, rough ground and clear. Units 
include assault guns, tanks, anti-tank guns, mortar, rifle and machine- 
gun units. 

Turns are divided into phases for friendly fire and movement, and 
separate phases for enemy fire and movement. You command units of 
company, platoon and section size. The units on the map may be removed 
at any time to see the terrain. The Option key will toggle the units back 
onto the map. 

Certain foot units can mount half-tracks and trucks for more 
protection (in the case of half-tracks) and mobility. Foot units can “dig 
in" for greater protection on the ground. Tanks can also overrun enemy 
units, and infantry and pioneers can assault enemy targets by attempting 
to enter their space. Pioneers may also re-build destroyed bridges. 

The 8-page manual includes scenario descriptions, as well as 2 pages 
of drawings and descriptions of the weapons used in the game. At the 
highest level of difficulty, this game takes a lot of skill to win. 


BASIC XE 


OSS has expanded their product, Basic XL, to take advantage of the 
extra memory in the XE machine. It’s a lot of fun to load in a program, 
read the result from PRINT FRE(O) and see 17000. Then type "EXPAND" 
in direct mode. Now a PRINT FRE(O) might show 31000! And a PRINT 
FRE(1) might show another 51000! What has happened? Well BASIC XE 
moves your program into the upper 64k RAM when you type EXPAND. 
The lower 64k is used for program variables. With the FAST command 
in your program, OSS claims an execution speed increased by 2 to 6 
times. f 

The product comes on a super-cartridge and disk. You can use any 
DOS, and if you copy certain files onto your boot disk you'll be able to 
do such things as renumber your program, perform sort operations and 
speed up program execution, among other things. 


The manual contains well over 100 pages, including some 
information reprinted with permission from the Atari Basic Manual. BASIC 
XE is supposed to be fully compatible with all Atari Basic programs. But 
| tried to run one without modification which failed when it tried to read 
string data into memory during the initialization routines. This occured 
both with the upper 64k in use and without. | haven't gone into the code 
or the BASIC XE manual to see what there is about these strings which 
needs changing. BASIC XE supports several string functions not found 
in other Basics available for the Atari. LEFT$, MID$ and RIGHTS are 
supported. FIND is used to determine if a given substring is in a given 
larger string. HEX$ will convert a decimal number to hex format. 

The manual discussions of graphics and player-missiles is much more 
complete than is found in the Atari Basic Manual. Added Basic statments 
include PROCEDURE, IF... ELSE, WHILE...ENDWHILE, AND PRINT USING. 
Discussions are accompanied by many little programming examples. The 
S-page index and 5-page table of contents make it possible to find 
anything you need quickly. If you use an Atari 130 XE, this product will 
expand your horizons. 


GAMES PEOPLE PLAY 

Games People Play, 112 East Market St., York, PA 17401, has made 
a special deal for members of A.C.E. They’ve given us their 3 disk sides 
of material plus documentation together with permission to distribute 
these items to members. Then any A.C.E. member can sign up for their 
BBS at half price: $15 and receive 5 free hours on the service. They 
charge $6/hour. 

GCP is a graphics BBS for 8-bit Ataris only. | guess if other computers 
call, they get only text? The disks contain maps of the city and the games 
(| saw BIOWAR, CYBER SHIP, and CYBER TANK). You can use the joystick 
to move your personal graphic character down the streets of the town. 
Go to the postoffice and read mail. Go to a telephone booth and chat 
with another user. Go into doors for system help, and to go to the games 
area of town. The town is walled, so you have to go into a door to exit. 
Commands may be given by keyboard if you're all the way across town 
and don't want to walk (shades of teleportation!). 

The BBS may be reached by a local number through Telenet, or some 
such service. You configure your boot disk with the local service you'll 
use, and the disk automatically completes all dialing and log-on 
procedures except your personal password. After you get the disks and 
documentation from us, give GCP a cali and enjoy! 


— Jim Bumpas 


REMEMBER 
NEXT MONIH 
WE ARE HAVING 
OUR ANNUAL 


When | first used the product, | automatically tried to call up a DOS 
menu to see what | had on the disk. Well, you can't do it from the supplied 
disk. But you don't need to! All, or most, of the DOS menu items are 
easily and quickly accessible from within BASIC XE. You can load and 
save binary files. You can read directories, delete, protect and unprotect 
files. You can rename files. 


SWAP MEET 


STuff 


Jim Bumpas 

A.C.E. ST Librarian 

4405 Dillard Road 

Eugene, OR 97405 

We presently have the following items as of October 25, 1985: 

ST Writer (an enhanced AtariWriter) — including a lot of support and 
configuration files — 232k 

NEO-Chrome (an excellent drawing program) — 32k 

SLIDENEO.PRG and EFFETS.PRG to show *.NEO & *.PIC files — 2k 

* NEO and *.PIC (about 20 files of 32k each) 

WINDOW.NEW uses ".PIC files to select pictures for showing 
(includes *.PIC files) — 332k 

Low-Res Demos — 524k 

Med-Res Demos — 519k 

Hi-Res (monochrome) Demos — 283k 

Utilities (ramdisks for half-meg & 1-meg systems) — 210k 

If you want our disks, let us know which ones. Until we get a lot 
of disks, I'll try to cusomize them for you. Send us $15 ($20 for a double- 
sided disk) and let us know which files you want. 


ST WRITER 


ST Writer has some new features not found on the 8-bit Atari Writer. 
One of the most interesting is the option to receive a file from an 8-bit 
Atari using the 850 interface. No modem or software is required, but 
you do need to cable from the 850 into the RS232 port on the ST. Once 
the Receive option is selected, use DOS to copy the file to the R: device. 
Or, you can use Atari Writer, or any word processor which will write a 
file to any device, and write the file to the R: device. Voila! 

The file moves at 9600 bps! This is the maximum the 850 interface 
handles. The computers could do it at 19,000+ bps. 

If you use a monochrome monitor you have an option which is really 
fantastic. You can display double the normal lines of text AND edit in 
this super mode. Just think: No extra hardware to buy, or special 
configuration software. And you can display enough text to show nearly 
a complete 8.5x11" page. The characters are just as clear and easy to 
read as the larger ones. They're about the same size as normal typing 
on paper. You'd have to spend more money than it takes to buy an Atari 
ST system just to give you the same capability on a PC-DOS machine. 
This machine will make a bigger impact on the business market than 
any machine since the introduction of PC-DOS machines. 

Searches may include carriage returns in the search parameters 
which allows for much more flexible search and replace operations than 
I've previously seen in a program. This is a feature I’ve not seen in word 
processors even for the IBM. Another nice feature not found on the Atari 
Writer options menu is the “Transform Colors” option. This switch 
toggles between black writing on a white background (which | prefer) 
and white writing on a black background. Color is used in other ways, 
too. Carriage returns and control characters are red, for instance. It's 
really exciting to run up the program and see | have 164k for a text buffer! 
| can put the whole Newsletter in one file! There is a print preview option 
which permits you to see your text just as it will appear on paper. It might 
be nice if, as the program is improved, that this feature be integrated 
into the editing mode. On-screen underiining might also be nice. ST Writer 
is being distributed with each Atari ST sold now, so if you don't have 
yours, contact your user group librarian and reguest a copy. Atari is 
retaining the copyright, but they've given us permission to distribute it 
as widely as we desire. 


NEO-CHROME 


Neo-Chrome is another great Atari Corp. program which is being 
distributed freely to users. Again, Atari is retaining the copyright. All 
distribution is with Atari permission. Neo-Chrome v.O.5 is the latest 
version we have, and it's great! My father-in-law is visiting us and he 
always enjoys the drawing programs we've had. Two years ago when 
he was here, all we had was the 8-bit system. He played with it, but it 
wasn't interesting enough for him to want one for himself. He's a 
commercial artist. He's buying an Atari ST primarily on the strength of 
the possibilities he's been shown by the operation of this Neo-Chrome 
program. That's how good it is. And the promise for the future is even 
greater. 


— Jim Bumpas 


You can draw on a full screen, or on a half screen with the options 
menu at the bottom. There is a “grabber” function permitting you to 
move the picture around so you can work on a critical area and keep 
the menu on-screen. There are no figure-drawing functions yet (like 
circles, ellipses, etc. and this is an obvious need in the program). But 
there are well-implemented copy, cut, paste and move functions. You 
can use these options to re-locate parts of your picture from one part 
of the screen to another. You can also mark a part of a picture (up to 
a half-screen), then load in another picture file and past the old half- 
screen on top of the new picture. Shades of overlay! And cell drawing! 
There's a wide selection of brush strokes and another whole mode called 
"nozzle" with which you can get a simulated “airbrush” effect. Used 
for shading, you can make it as light or heavy as desired by varying the 
speed of the mouse as you draw. There's a Text mode with which you 
can place text in your drawing. You have a half-dozen or so font styles 
which can each be displayed in one of another half-dozen or so sizes 
on the screen. There's an “expanded” text mode which seems to invoke 
the european character set. 

One exciting feature permits a kind of simulated “animation”. The 
colors can be shifted (YOU can control the speed of the shift). The well- 
known waterfall picture demo can now be seen with the water cascading 
down the falls. Very exciting. Graham Smith is working on a volcano with 
a lava flow. It should be possible to show moving figures, too, using this 
feature. 

You have a palette of 16 colors with which to work at all times. The 
menu options permit selection of any one of the 512 colors by placing 
them into the pots on your palette. One interesting note: These 
computers can really only display 16 colors at one time. However, the 
speed of this processor and the screen refresh rate permits one to create 
the "illusion" of all 512 colors on the screen at one time. The “box” from 
which colors are selected contains all these hundreds of colors which 
can be seen at one time. This is a great program with which to begin 
unleasing the power of the Atari ST. And the price is right! PS: The cover 
graphic this month was drawn by my father-in-law, Harry Franz. He'sa 
commercial artist, but he's never really cared for computers before. He's 
seen my 8-bit Atari in the more than 4 years since l've had it. But he's 
just purchased an Atari ST on the strength of this admittedly unfinished 
program, NEO-Chrome, which he used to draw the turkey. 


News and Reviews 


by Mike Dunn, Co-Editor 

Well, the rains have come to Oregon, the sun is gone until spring, 
and the fly-fishing season is over, so back to work on the newsletter. 
The Atari continues to grow in support, more and more independent 
reviewers are impressed with the ST, and the STs are selling well. 
Software is becoming more available for the ST, and much is still coming 
out for the trusty old 8-bits. Many are converting their 8-bits to 256K 
and their ST to 1 Megabyte; we will hopefully reprint the directions on 
how to do it as found in other user group newsletters. See Jim Bumpas' 
article on the latest in ST news. 

Home Computer Magazine (POB 70288, Eugene, OR 97401, $25 
year) is a Eugene based computer magazine which started as a TI 99/4 
newsletter, and has grown to a huge 146 page tome without any 
advertising, filled with articles and many programs. Often the same 
program will be given for the Apple, Commodore 64, IBM-PC, and now 
the Atari. The current issue has Atari programs like "The NanoProcessor'", 
a program simulating your computer's inner workings, and teaches you 
the principles of programming a simple machine language computer; 
“The Plains of Salisbury", a graphics adventure war-game in Camelot; 
“Vital Signs”, a simulation of your cardiovascular system, as well as many 
well written reviews and the "Programmer's Window" carefully 
explaining how and why the programs in the newsletter work. Very 
Impressive, worth getting. 

As mentioned in previous newsletters, PaperClip, the highly 
reviewed word-processor from Batteries Included, seemed to have a few 
strange bugs in it. It lost charactors when you typed very fast, and the 
cursor sometimes went crazy when deleating and end up in the middle 
of the page. | have just received a new version, 1.1, which seems to have 
corrected these problems. All this excellent product needs now is a 
spelling checker. 

Broderbund Software and it's Synapse division continues to pour 
out Atari software at a staggering rate. The last remaining large game 
software house seems to have faith in us to contiunue to buy their fine 
products. Released this month, and to be reviewed in this and the next 
issues of ACE, are included the long-awaited Championship Lode 
Runner, Karateka a cinema-like Karate game, two more "Electronic 
Novels” from Synapse, and more. The reviewers have them now, and 
they will be printed when received. 


VP RAMBLINGS 


Here we are into November and turkey day is almost upon us and 
the Atari scene looks good. More and more software and hardware is 
being made available to all of us. A number of people have made memory 
enhancements for all the 8 bit machines. In fact we will have one is use 
on our BBS in the very near future together with a new 2400 baud 
modem. 

Many of you seem to have trouble either getting on the BBS or once 
on how to use the different functions. When you go to log on the BBS 
enter your name, phone no., and a 4 letter password. After hitting the 
RETURN key a prompt appears to ask if everything is the way you want 
it and you must answer YES if it is and NO if it is not. If YES then it 
will check if everything is all right and then let you on the board. If NO 
you will be allowed to do it over again and only when it gets a YES will 
it go on and let you on the board. Once on most everything is menu driven 
and easy to follow except how to send messages. If you just remember 
these 2 signs you will have no trouble. The first is /A, this one allows 
you to abort your message. The second is /S and this one sends your 
message to where you want it. Remember these two prompts and you 
will have no trouble with the BBS. 

The BBS is now working so well that it even scares me. | think we 
have one of the finest in the country and if you haven't tried it or haven't 
tried it in a long time | think you will be in for a surprise the next time 
you use it. If you have any ideas which might make it even better leave 
me a message and | will see what | can do to follow your idea. 

As we go into the holiday season remember to give thanks that we 
can have computers, modems and all the other things that make 
computing what it is and enjoy it all in the company of our fellow 
Atarians. 

— Larry Gold 


LODE RUNNER'S RESCUE 


LODE RUNNER’S RESCUE by Josh Scholar, from Synapse. A 
challenging 3-D game, with easy to use game editor. My son and his 
buddys like this game. They had even had more fun, when they found 
out by using the game editor to win the game. 

Now here's the name of the game. The Lode Runner has been 
captured by the minions of the evil Bungeling Empire and you, his brave 
daughter, must save him! he's imprisoned in a cell deep within a labyrinth 
of 46 mazes. Each maze holds many keys, that you must collect while 
you are avoiding guards. These keys will let you out of each of 46 mazes. 

The screen editing Option. This is an icon-driven screen which will 
let you make your own game screens. The 16-page instruction book 
covering the game editor is very good. It is easy to understand how to 
use the icons. This 3D game editor, will let you hide keys behind walls, 
in pits; to use trapdoors, elevators; to put it in rivers and magic 
mushrooms; etc. You also can put in restart goals to a new part of the 
screen if you bite the big one or to catch a magic cat to give you a new 
life. You can save up to 46 screens per disk, for a game of your own 
design. 

It has a playtest mode so as you make your screens, you can see 
if it will work. Well that just about covers it for my first review except 
to say that | liked the game. PS: It's a one player game. 


WALDEN'S C 


Recently when | was working on an update for DVC, | wanted to 
know how many bytes a file had in the last sector. | also wanted to know 
exactly how large the file was. The program FSIZE.C returns the number 
of bytes, the number of sectors, and how many bytes are in the last sector 
of the filename. The function inverse() at the end of the program is a 
handy little function for converting strings to inverse. It is fairly common 
for C programmers to build up a large library of small functions like this, 
which can then be included in the LNK file. 

Ralph Walden 


FLEA MARKET 


This year's pre-Christmas flea market to benefit WISTEC will be at 
our December meeting. If you have anything you wish to sell (original 
software and/or hardware) contact Larry Gold and give him your $5.00 
donation. WISTEC will issue you a receipt for tax purposes. 


C-AMIGA 


The Commodore AMIGA will appear at our November meeting. Come 
see the third personal computer entrant in the 68k sweeps (after the 
Mac and the Atari ST). We'll have the Atari ST there, too, so you can 
compare the two systems. 


1200 XL TO 800 OS 


(Reprint: RAM, September 1985) 

Bummed out with the hassles built into the 1200XL OS? Wanna burn 
your translator disks, but can't shell out the $80 for a Boss? Follow these 
simple instructions to replace the nasty 1200XL OS with the nice old 
400/800 OS, for $16.50 or less! 

1. Pull the Rev.B ROMs out of the motherboard of a 400, or from 
the 10k ROM board of an 800. Make sure the chips function properly! 

2. If you can't find a set of ROMs, order them from: American TV, 
15338 Inverness St., San Leandro, CA 94579, 415-352-3787. They 
charge $16.50 (including shipping) for the chips. 

3. At this point you should have three chips, marked CO12399B, 
CO12499B and CO14599B. 

4. Place the CO14599B piggyback on the CO12499B chip with the 
notched ends facing the same direction. Solder pin 1 to pin 1, pin 2 to 
pin 2, etc. for all 24 pairs of pins. 

5. Open the 1200XL using a small Phillips-head driver on the screws, 
and a needlenose pliers to pull the pop rivets holding the RF shield 
together. This step is completely non-destructive: There is nothing to 
cut, unsolder or mutilate. 

6. Locate the two 24-pin ROM chips on the 1200XL board near the 
cartridge slot. Notice they are marked U12 and U13 in white letters on 
the board. Notice also which way the notched ends of the chips are 
facing. 

7. Remove these ROM chips and give them to someone you don't like. 

8. Pop the chip marked CO12399B into the slot marked U12, with 
the notch facing in the proper direction. Place the piggyback chips in 
slot U13, with the notches properly oriented. 

9. Test the board before putting the 1200 together again. 

You now have an 800 with a 1200 keyboard, the best of both worlds. 
This modification was created by Brent Borqhese of Atari Computer 
Enthusiasts of Columbus, Ohio, courtesy of the Dr. Download BBS, 
featuring 300/1200 bps access to 3 Mb of public domain programs. Call 
614-587-3774, 24 hours daily. No password, no time limit. Just huge 
phone bills. 


Battalion Commander 
$40 by Strategic Simulations Inc., 1985 

Battalion Commander is an expanded version of Combat Leader, 
although in many ways not as challenging. The variables which may be 
altered in this version are fewer, primarily terrain. One of three armies 
(Soviet - U.S. - Chinese) may be chosen, and one of four campaigns 
(Pursuit & Exploitation - Meeting Enagement - Attack - Defense). The 
maps, and there are 40 of them, are twice as large as those in Combat 
Leader. This gives you quite a lot of territory in which to manuever. 

Each game, Attack, Defense etc., has a set number of units, which 
you may not vary, other than in the relative strengths as presented in 
a percent ratio. One of the nice things about the game is that each unit 
is based on the actual figures for a unit of that type in modern U.S., Soviet 
or Chinese armies. In the back of the instruction manual you will find 
an appendix which breaks down each unit into title and weapons, both 
light and heavy. This gives you an understanding of the relative firepower 
of each unit. A second appendix gives you a breakdown in the number 
and type of vehicles available for each unit. The third appendix lists the 
40 terrain maps and gives a break down of their features. 

All of these variables, and the general game mechanics are listed 
in a nice instruction manual. A typical SSI job, clean and easy to read, 
with extra bits of interesting information placed at the end of each 
section. The game mechanics are almost identical to Combat Leader, 
so anyone familiar with that system should have no trouble. 

In play you are allowed to control an individual company or to simply 
maintain a battalion level control. In either case you can only tell your 
units how to go to a general area. In each game I've played | have found 
units trying to move through the enemy lines just because that was the 
easiest route, taking into account terrain. The only way to avoid this is 
if you move your units in small increments, and since this is a real time 
game you are giving the computer a big lead. You may target your units 
by company unless you have taken over a specific company. Then you 
may target individual units. | have often given my company commanders 
fire orders and have had no results, until | took personal command of 
the company. Some of this may be due to the fact that it is difficult to 
determine line of sight for your units. 

Despite the problems | have just stated, and the fact that | don't find 
this game to be as challenging as some others | have played by SSI I 
still recommand any person interested in war games to check this one 
out. The problems mentioned, while frustrating can also be viewed as 
a challenge, and in general this game is up to SSI's high standards. It 
will certainly give you many hours of enjoyable play time. 

— Nick Chrones 
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SORT NUMBER BASIC 


VZELA MI TUITA 
FILE: SORTHUM. BAS 


18 REA 


188 
2808 
i88 
358 
488 


418 
428 
438 
448 
458 
468 
478 
288 
518 
9528 
558 


SISUS 1888;REM CPEE: 
GOSUB 3888:REM 
END 

REM Bl 


PRINT ELAPSED TIME 


M.L. BUEBLESORT 


REM NPGOKE START“END OF SORT KEY 
POKE 203,8:POKE 284,4 


REM TINTE 8 5CENDING 


POKE 285,6:POKE 286,8 
REM (LE a USR COLL! ! 
AZUSRLADRLSORTFI , ADR CNUMS) *18 , NJ 
RETURN 

=H 

T-8 
FOR I-2 TO K 


IF SC(O-1)»5(I) THEN T-I:H-5(I-1):5 


(I-1)-5(I) :3 0I) -H 


978 
975 
588 
585 


688 
618 
628 
638 
648 
658 
668 
678 
688 
638 
788 
710 
728 
638 
738 


NEXT I:? ","; 
K-T-1:IF K)i THEN 518 
? RETURN 
REM B 
HEGP SORT 


R-N 

FOR LL-INT(N/2) TO i STEP -i 
HOLO<SKČLLI 

GOSUB 688:NEXT LL:LL-1 

FOR R-N-i TO í STEP -i 
HO0LD-5(CR*1) 
5(Q*1)-5(1) 

GOSUB 688:MENT R:? 
=LL 

I=J; J-2XJ 

ON Zt56N(J-R) GOTO 718,728,738 

IF S5(J)49(4Jt1) THEN J-Jti 

IF HOLDČSCJI THEN SCD-5SCD:60 TO 


: RETURN 


H0LD2-HOLD : HOLD-S CI) :3 (I2 -HOLDZ:? 


"RETURN 


788 


REM H 
GETKEY ROUTINE 





GET DATA 
GOSUB 2888:REM pa iN 





FROM 
888 POKE 764,255 
818 IF PEEK(764)-255 THEM 818 
828 KEY-PEEK(754) 2088 
810 POKE 764,255 2818 
848 RETURN 2020 
889 REM E 2398 
EL 
8 
988 OLDTIME-TIME 
318 FLAG-i-FLAG 5086 
320 TIME-PEEK (20) +256" (PEEK (19) 256xpr. 329% 
EK(18)) 3108 
338 TIME-INT(IBBBXTIME/60)/1808 5136 
948 ELAPSE-TIME-OLDTIME 5298 
950 ? "TIME = ";TIME 3289 
968 IF FLAG-e THEN 7 “ELAPSE = “;eLaps 5809 
E 6818 
978 RETURK 6828 
380 REM B 6070 
INITIGLIZATION ROUTINE ue 
g 5858 
1888 ? CHRS(i25) 6868 
1818 POKE 712,8 6878 
1828 POKE 718,4*16XINT(16XRMD (17 6860 
1818 POKE 789,12 5038 
1188 DIM TYPS CL), HlMS (4),5(9993, 50 TS (. ?198 
ipie 6118 
1185 G05US 6888 5128 
1118 ? :? uMhich sort to execute?" 6125 
1128 ? :? "(B) Bubblesort" 6158 
1125 ? :? "(M) M.L. Bubble" 6148 
1118 ? :? "(H) Heapsort":? :? 5158 
1148 GOSUB 888 6168 
1158 IF KEY-21 THEN TYP$-"B" 6178 
1155 IF KEY-17 THEN TYPS=z m" 6188 
1168 IF KEY-57 THEN TYP$="H" 6198 
1178 IF TYP$ ("Bu amp TYPSO"W" ann ty 5288 
p$ QW" THEN GO TO 1140 6218 
1288 7 :? ;? “How many items do you wa 6228 
nt to sort" 6238 
1285 ? "Max = 999, Minimum = 18" 6248 
1218 INPUT NUMS 6258 
1228 TRAP 1218 sue 
1238 NZVAL CNUMS) 6270 
1248 IF N<18 THEM 1285 6268 
1258 IF N)999 THEN 1285 or 
1258 N-INT(M):TRAP 34567 6388 
1840 OPEM 11,4,0,"D:NIIMI GEB , RAN” 6318 
1858 FOR Izi TO N 6328 
1868 INPUT #1,A 6338 
1878 SCD-4 
1888 NEXT I 
1310 GOSUB 988 
1988 RETURN 
1998 REM Ë 


LAST ISSUE 


DO SORT > 
E 
IF TYyP$-"M" THEN GOSUB 488 
IF TYPS-c"B'" THEM GOSLIB 588 
IF TYP$-'"H^" THEN GOSUB 688 
RETURN 
REM B 
PRINT RESULTS 
8 
60508 388 
GOSUB 888 
FOR Izi TON 
? 1,5{D 
WEXT I 
RETURN 


REM MUSR Sort routine-relocatable 
REM (IZRA assumes records i 
Maos, Umber of recoFda is Tm 









REM MT POKE starting and 


ending 


positions (relative . 
of SORT key plus total recrd 
length, and ascend vs descend 


REH 
REM 
REN 
REH 
REM 
REM 











START SORT KEY:POKE 263, 5TR 
EXD OF SORT KEY: POKE 204, END 


One moment please. gi 
FOR Izi TO i26:READ A 

SORTS CI} zCHR$ CA) :NEXT I 
RETURN 

DATA 184,104,1::,217,104,123,216 
DATA 184,1217,282,184,113,289,16? 
DATA 8,133,218,137,287,162,1 
DATA 165,216,133,214,165,217,133 
DATA 215,24,165,214,133,212,181 
DATA 205,133,714,165,215,133, 213 
DATA 185,8,133,215,154,281,165 
DATA 286,248,18,177,214,289,212 
DATA 144,44,248,12,176,12,177 
DATA 214,289,212,144,13,248,2 
DATA 176,30,288,196,204,248,227 
DATA 176,23,144,223,169,1,133 
PATA 218,164,285,136,177,214,72 
DATA 177,212,145,214,184,145,212 
DATA 192,8,288,241,232,724,8 
DATA 288,2,2:8,207,228,288,288 
DATA 172,165,289,197,297,288,166 
DATA 165,218,281,8:288,144,96 


COMPUTER ASSISTED DESIGN 


2 DIM 0$(1):60TO0 1288 

i DIM Kt33,2) 

5 DIM CIRC(38,2),0LD(38,2) 

6 DIM COLORS (1), RF (38),Vk(38) 

7 PI-22/7:0RC- CPI/2) /28 

8 GOSUB 9588:G05UB 3288:RETURN 

iz GO5Uß 7888 

13 CZIRNDIAJR14) +1 

i4 SETCOLOR 2,6,8 

15 SETCOLOR 4,C,8 

ič SETCULOR 1,C,8 

38 ? CHR$ (125) 

48 7 BREI 
mE" 

4s ? COMPUTER 65 5 25 TE 
PER: 

¿5 ean 
E" 

Bun De sich o 
E" 

TE SEN ENE C SENSE 
E 

52 RETURN 

i88 C-=RND (813216 

118 GRAPHICS 8+15 

128 SETCOLOR 1,C,8 

138 SETCOLOR 2,C,18 

148 SETCOLOR 4,C,18 

145 COLOR i 

158 RETURN 

168 GOSUB 188 

280 FOR L-1 TO HORS 

218 pIS-(158/ (HDRS-1)) 

228 CIRC(Ə(L,1)-188 

238 CIRC(L,22- CCDISXL 2 -DI51 121 

235 OLDCL, D) ZCIRCCL, 1) 

236 0LD(IL,2) -CIRC(L,2) 

248 NEKT L 

258 RETURN 

388 FOR zi TO HORS 

128 PLOT CIRCID,13-48,CIRCID, 2) 

358 NEXT D 

335 PLOT 168,8:DRAHTO 168,191 

336 GOSUB 688 

348 PLOT CIRCCI,1),CIRC(i,2) 

368 FOR D-2 TO HORS 

178 PRANTO CIRCOD,12),CIRCCD, 2) 

i88 WEXT D 

488 IF STRIG(0)-8 THEM GOSUR 688 

418 S-S5TICK(B) 

415 IF PEEK(53279)-6 AND UERT?1 AND AN 
GO THEN GOSUB 7888:G0TO 388 

416 IF PEEK(53279)-5 AND ANG(I THEN 12 
ga 

417 IF PEEK(53273)-6 AND UERT(1 THEN G 
RAPHICS 8:60T0 1288 


413 IF PEEK(53272)-5 THEM GRAPHICS 8:6 
OTO 1288 
428 IF 5-15 
438 IF 5-14 
5,21-1:60T0 
448 IF 5-13 
5,21 4*1:60T0 
458 IF 5-11 THEN CIRCUPRES,1)-C£IRČ (PRE 
5,1)-1:60T0 888 
468 IF 5-7 THEN CIRC(PRES,1)J-CIRC(PRES 
/1Y+1:G0T0 888 
478 IF 35-5 THEN CIRC(UORES,1)-CIRC(PRES 
pL} 41: CIRC CPRES, 2) CCIRCCPRES, 2) -1: G0TO 
#88 
475 IF 5-5 THEN CIRC CPRES,13-CIRCCPRES 
71} 41: CIRC CPRES, 2} CCIRCCPRES 23 +1:60T0 
588 
488 IF 5-9 THEN CIRCIPRES,1)-CIRC(PRES 
,1)-1:CIRCCGPRES, 2) ZCIRCCPRES, 2341: G0T0 
888 
485 IF 5-18 THEN CIRC(PRES,1)-CIRC(PRE 
5,1) -1:CIRCCOPRES, 2) ZCIRCCPRES, 22 -1: 60T 
O 088 


THEN 488 

THEM CIRC(CPRES,2)-CIRCUPRE 
888 

THEN CIRC(PRES,2)-CIRC(PRE 
888 


433 GOTO 488 

688 PRES-PRES+I 

618 IF PRES-HORS*i1 THEN GOTO 538 
628 RIB-PRES-1 

638 IF RUB-8 THEN RUB-HORS 

648 COLOR 2 

658 PLOT 138,8:DRAWTO 138,191 
SEG COLOR 1 

570 PLOT 138,CIRC(CPRES,2) 

685 RETURN 

638 COLOR 2:PLOT 138,8:0RAHTO 138,191: 


PRES-1 

531 PLOT 148,8:DRAHTO 148,121:COLOR i 
695 FOR T-1 TO HORS 

536 PLOT 148,CIRC(T,2):NEKT T:GOTO 628 


888 IF CIRC(PRES,2)í(-8 THEN GOSUB 5888 
:CIRCIPRES,21-1:50T0 488 


885 IF CIRC(PRES,2))-191 THEN GOSUB 98 


5,2) 

845 DRAMTO CIRCCPRES-1,1) ,CIRCCPRES—1, 
23 :RETURN 

858 COLOR 2:PLOT OLBCPRES, 1), OLBCPRES, 
21 

851 PRANTO ÜLD(PRES*1,1),0LDCPRES41,7) 


854 COLOR 1:PLUT CIRCCPRES, 1), CIRC CPRE 
3,2) 

855 DRAWTO CIRC(PRESt1,1), CIRC(PRES41, 
2) : RETURN 

898 OLD (PRES, 1) -CIRCCPRE5, 1) 

835 ÜLD(PRES,2)-CIRC(PRES,23:60T0 488 

388 GOSUB 188:505UB 4888 

318 GOSUB 3888 

328 FOR T-1 TO HORS 

378 ERROR- PLOT 1568*CIRC(T,1)-168PP4K 
(1,13,UH CT) *RF CT) XK Ci, 23 

348 FOR D-1 TO 33 

358 X-158* CCIRC(T, 11-158) XK (D, 13 : Y-UM( 
T) *RF CT2 XK CD ,2) 

365 IF YX8 OR Y?191 THEN B-1:G0TO 999 

378 IF B-1 THEN PLOT X,Y:B8-8 

388 DRAHTO X,Y 

339 NEXT D:NEKT T 

1888 C-(CZXPI)/UERT 

1885 FOR K-8 TO (2XPIJ-C STEP C 

1906 SX-SINCH) :CHN- COS CH 

1818 FOR J-1 TO HOR5-1 

1828 RDiA-UCIRCCI,1)-1568 

1838 RDiB-CIRCCUT1,1)-168 

i888 Hi-158*RDiAXCH:VYi-UMLCJID) tRF CID 5H 

1898 M2-1568*RDi1BXCM:Y2-UMCUIT 1) tRF (Iti) 
KSH 

1198 
1118 
1128 
1138 
1148 
1158 
1188 
1185 


IF Y1{8 THEN Yi-8 

IF Y11931 THEN Y1-191 
IF Y248 THEN Y2-8 

IF Y27191 THEN Y2-191 
PLOT Ki,Yi 

DRAWTO KZ,Y2 

NEXT J:NEXT H 

GOSiB 5888 


9@:CIRCCPRES,23-198:G0T0 488 1138 IF STRIG&(83-1 THEN 1198 
818 IF CIRC(PRES,13)-168 THEN GOSUB 98 1288 GRAPHICS 8:605HB iZ 
88: CIRC(PRES,1)-161:60T0 488 1285 ? ;?7" Construction lines BET 
828 IF CIRC(PRES,1))-319 THEN GOSUB 90 TE" 
89:CIRC(PRES,1)-Z17:60T0 488 1218 ? :? H Change viewing angliei 
825 IF PRES-1 THEN GOSUB 858:60T0 898 TUE: 
878 IF PRESZHORS THEN GOSUB 848:60T0 8 1228 7 ;? " Go to drawing page BW 
38 [aJ 
815 GOSUB 848:G05UB 858:60T0 838 izi8 ? ;? H Begin new design RI 
848 COLOR 2:PLOT OLOCPRES, 1), OLBCPRES, MRF" 
2) 1248 ? :? " Draw current design 
841 PRANTO OLD(PRES-1,1),0LD0PRES-i,2) LTE: 

1247? 2 17 " Help OPT 
844 COLOR 1:PLOT CIRCCPRES, 1), CIRC (PRE MIL)" 


G 


COMPUTER ASSISTED DESIGN 





ven 


í L V 





1245 ? :? " 
LECT ; 

1258 5-5TICK (83 
1255 IF PEEK(53279)-3 THEN 18888 

i268 IF 54315 THEN 1188 

i278 IF STRIG(8)-8 THEN 1448 

i288 GOTO 1258 

1388 IF 5-14 AND HORS?1 THEN GOSUB 12: 
GOTO 1358 

1310 IF 5-13 AND HORS?I THEN GOSUB 12: 
GOTO 1368 

1328 IF STICK(0)-11 AND HORS?I THEN GO 
SUB 108: PRES-HORS:GOSUB 668:605lR 7088 
:6070 335 

i338 IF 5-7 THEN 1488 

1348 GOTO 1258 





USE JOY TO SE 


13598 7:17 59 1? " Number of lines i 
n current" 

1394 7? 7? design is “;VERT;"." 
1356 7 ;? ;? 37 " Change to ";;:INP 


UT VERT:GOTO 1288 
1358 GOTO 1288 
1358 7:77,97" 
current" 

{302.7 27" 
egrees." 

1364 7? di zi debe Change to;" 

1366 INPUT ANG:GOSUB :808:60TO0 1288 
1488 GO5U8 12:7 ;? ;? ;? " Do you wan 
t a new design (Y/N)";:INPUT Q$:IF 0$- 
"A" THEN 1288 


1418 CLR ;605UB 8:605lB 12 
1428 ? ;? ;:? " How many construction 


circles";:INPUT HORS:CIRCLES5-1:605HB 2 
88 

1438 
1448 
1445 


Angle of view in 


design is ";ANG;" d 


GOTO 1288 
IF HORS{1 THEN 1258 
IF WERTCi THEN GOSUR 12:60T0 1358 


IF ANG{1 THEN GOSUB 12:60T0 1368 
IF HOüRS?1 THEN GOSUB 7888:G0T0 38 


1458 
1468 
8 

1478 
3888 


GOTO 1258 

FOR U-1 TO HORS 

3085 AZIB-ANG 

3818 IF CIRC(U,2)496 THEM H-96-ČIRCCU, 
2) :W-INT (HXSINCARCXA) ) : UNCUJZCIRC(U, 2) 
t(H-N) GOTO 3188 

3828 H-CIRC(U,23-25:N-INT CHXSIN CARCHA} 
VIUN CIRC CY, 22 - (H-N) 

3188 NEXT V 

3118 RETURN 

4888 FOR V-i TO HORS 

4885 G-CIRCIV, 13-168 

4818 RF(UJ-INT(GXSIMCARCXANG) ) 

4828 NEXT V 


48:8 RETURN 

5888 SOUND 8,18,18,14 

5818 FOR K-1 TO 7 

5828 FOR T-1 TO Z:NEKT T 

5838 SOUND 1,28,18,14 

5848 FOR Tzi TO Z:NEKT T 

5858 SOUND 1,:8,18,14 

5868 NEKT M 

5878 SOUND 0,8,0,8 

5875 SOUND 1,8,8,8 

5888 RETURN 

7808 SOUND 8,18,18,14 

7818 SOUND 1,15,18,14 

7828 FOR X-1 TO 8:NEKT K 

7337 SOUND 8,8,8,8 

7998 SOUND 1,8,8,8 

7399 RETURN 

8868 IF CIRCCPRES,13>319 THEN CIRC(PRE 
5,1)-1193:G050HB 3888:RETURN 

8818 IF CIRC(PRES,2)48 THEN CIRC(PRES, 
2)-1:6050B8 9088:RETURN 

8828 IF CIRČC(PRES,2)2131 THEN CIRC(PRE 
5,232191:G05UB 3888:RETIRN 

3888 SOUND 8,288,18,14 

3818 SOUND 1,288,6,14 

3828 FOR Xzi TO 8:NEXT H 

9848 SOUND 8,0,8,8 

3848 SOUND 1,8,8,8 

3858 RETURN 

3288 FOR D-1 TO 33 

3205 K-Kt+8.2 

9218 K(D,1)-C050E):K(D,2)-SINCKI 

3228 NEXT D:RETURM 

3588 GO5UB 12:H-8 

3518 POSITION 6,18:? "(C) SAM SMALL ñH 
6 1983 (U.21' 

3528 POSITION 8,16:? "MJERNE 

CIE" ; 

3538 RETURN 

188808 GOSUB 12 

18818 ? :? "[1] CLOAD and RUN." 

18828 7 "121 MENU displayed." 

18838 ? "{T] Al functions are locked 
out, except ‘new design'." 

18348 ? "[4] Select ‘new design: ," 
18858 ? "I5] ‘New design Y/N' is disp 


layed for checking." 

12968 ? "[61 Program creates C05 and 
SIN arrays for faster circle drawın 
ga 

18878 ? "[7] Select how many construc 
tion circles are required." 
igge 7 "[81 Return to MENU." 

18838 ? "[3] Drawing page is now avai 
lable," 


18108 ? :? ;? " PRESS OPTION TO Ç 


7 


CON: T 


< ` 


ONTINUE  ; 
108185 IF PEEK(51279) O 3 THEM 18185 


18118 GOSUB 12 


10120 ? :7 "t18] DRAWING PAGE" 

181318 ? :? " Select which segment 

to be drawn with fire button" 

18140 ? ;? " Joystick will then `r 

ubber band' drawing line to the d 

esired" 

18158 ? ;? " profile, All eight d 
irections are supported and there a 
re limit checks." 

18168 ? :7 " AELA then draws desi 
gn if other parameters have 
been entered.” 

18178 ? :? " HW dHgoes back to H 
ENI" 

18188 ? :? " 

INIJE ; 


10138 IF PEEK(53279) O 3 THEN 18178 
16288 GOSUR i2 
i8214^7" 1? "ERU 
18228 ? :? " 
current design 
er parameters 


MAIN MENI" 
Attempting to 'draw 
without entering oth 
Will result in" 


18248 7 :? " program asking for t 
hese entries." 

18258 7 3?" ‘Draw current design 
‘ will draw three-diMensional re 
presentation of drawn profile.” 
IT 
LITE; 


18275 IF PEEK(53279) O 3 THEN 18275 
18288 GOSUB 12 
182907 117 ;7? 


1? ''[i2] PARAMETERS” 


10288 ? ;? " 'Ponstruction lines. 
d Any number from i u 
pwards." 

108318 ? ;? H ‘angle of uiew' 


8 deg - eye level, 
38 deg - overhead.” 
18328 POSITION 4,29:? " NISEM ADA. 


FOR MAIN MENU oe 
18248 IF PEEK(53273)4)3 THEN 18348 


18758 GOTO 1296 





REM GSXGGGOCERODK RANGO HEE 
REM . A Disk Utility Programme. 
REM . Copyright MAPSOFT Ltd. 
REM . By Ron Levy. 

REM Reprinted from the U.K Atari 
REM Newsletter, Sussex, England 
REM by the 

REM KGL PRONE ee TI | 


37485 14 year 
FAIRE 


3 BUFFZ1536:UNITZ1:POKE 789,15 

i8 DIM F$UCIB),O0PTS (18) , HEKS (512) , T$ (16 

3,NUALS CI82,45 (41, Y$9 (4) , SECTORS C18) , DI 

5K5 (5),BC7) , BYTS (256) 

12 FOR X-1 TO 5:READ Y:DISKSCH,KIZCHRS 
(Y) : NEXT X 

18 ? "STAGE 1" 

19 REM (4€ SET UP HEX CONVERTER >>> 

28 T5="8123456 789ABCDEF" 

22 FOR M-1 TO 256 

24 Y-INT((H-1)/15):Y2-H-YK16:YsYti 

26 LILENCHEXS) 41: HEXSUL,LI=TSCY,¥) 

27 LILEWCHENS) *1:HEX5 C, LJ 71$ (2, Y2) 

Z8 NEXT M 

38 C-2532279:REM Consol Switches. 

i3 ? "STAGE 2" 

48 REM << Set Up Character Array >> 

41 FOR BYT-1 TO 255:BYTS (BYT, BYT) -CHRS 
(BYT) 

44 IF BYT)26 AMD BYT{32 OR BYT>124 AND 
BYT(128 OR BYT?154 AND BYT(158 OR BYT 

2252 THEN BYTSCBYT, BYT) =CHRS C82 

46 NEXT BYT 

58 REM 4444 Create Display List >}>> 
52 D-551:Pb8-PEEK (DJ) :D1-DB8-1:DL-PEEK (56 
0) 4D0X256:DLizDL-255 

53 FOR dci TO 5:POKE DLlita,PEEK(DITtAJ: 
NEXT A 

54 FOR ñ=5 TO 58 STEP Z:POKE DLitA,B:P 
OKE Dilitita,Z:NEXT ñ 

55 FOR h-52 TO SI;POKE DLIA, PEEK CDL tA 

-233 : WEKT ñ 

56 POKE DL1+54 ,PEEK(561)-1 


"OS Gh pa PS Fe ú 


un 


188 REM ((44444C€ Main Menu. 2222222) 
182 GRAPHICS 8:POKE 783,15;CMD-B8 

igs 7 S Sector Utility," 

186 7 " Syn nn 
108 ? " By Ron Leuy.'':? 

112 ? " Disk Directory ...... di?" 
114 7" Load Sector ........ x AZ 
dis ? " Save Sector ......... (PY 
118 ? * Editi Sector „us. 442" 
i28 ? '' Examine Directory „.. (5)5" 
i58 POSITION 13,28:? "Option --?"; 


168 CLOSE H2:0PEM H2,4,8,"K:":GET H2,E 
:CLOSE 82 

178 X-E-48:IF Xši OR HS THEN 188 

188 ON K GOTO 1898,2880,3908,4889,5888 


SECTOR 


288 FOR Izi TO SIZE 3278 J-J-55 

i888 REM (4444€ DISK DIRECTORY 22220) 3288 IF K<65 THEN K-K-48:6G0TO 3388 
1878 GRAPHICS @:POKE 789,15 3298 K-K-55 

1188 TRAP 1688:0PEN H1,6,8,"D:X,3* 3368 SECT-IX2561.H16*K 

iii8 INPUT Hi,F5:? F$" ^; 3718 IF SECT<i OR SECT)572@ THEN ? CHR 
1128 INPUT #1,F$:? FŠ:GOTO 1118 $(257):60T0 3888 

1688 CLOSE Hi:INPUT KS:IF KS-"" THEN 1 3328 SECTORZSECT:GOSUB 18888:GOTO 188 
ag 3348 GOTO 188 

1638 GOTO 1888 3468 7? " Which Sector SBEC} --? "; 
2888 REM «444444 Load Sector 200)))) 3418 INPUT SECTORS:IF SECTORS="" THEN 
2188 GRAPHICS @:POKE 789,15:PRINT :TRa 3588 

P 48888 3458 TRAP 3488:5ECT-YALTSECTORSI:TRAP 
2119 ? " LOAD Sector Routine,";? 48888 


2288 ? " Which Sector 4HEX) --? "; 
2218 INPUT SECTORS:IF SECTORS="" THEN 
PRINT :GOTO 2488 

2228 IF LENTSECTORSI OS THEN 2888 


3448 IF SECT41 OR SECT?728 THEN ? CHRS 
(25311;:60T0 3488 

3458 SECTOR-SECT:605UR 18888:60T0 188 
3588 PRINT 

$518 ? ;? "Type X To SAVE Sector '";SEC 


2238 I-A5COGECTORS (1,19) : JcásC CoECTORS TORG" "; 


(2,2)) :K=ASC CSECTORS (3, 32) 

2248 IF Id65 THEN I-I-48:G0T0 2268 
2258 I-I-55 

2268 IF J{65 THEN .-.-48:60T0 2288 
2278 J-J-55 

2288 IF Ki65 THEN K-K-48:G60T0 2788 
2298 K-K-55 

2:88 SECT-IX2564.HC- 64K 

2318 IF SECT{1 OR SECT?)5728 THEN ? CHR 
5(253):60T0 2888 

2138 SECTOR-SECT:GOSUB 18888:GO0TO i88 
2480 ? " Which Sector <pEC> --? "; 
2418 INPUT SECTORS:IF SECTORS-'"" THEN 
PRINT :60T0 2588 

2438 TRAP 27488: 5ECT-VAL (SEČTORŠI : TRAP 
48888 

2448 IF SECTČi OR SECT?720 THEN ? CHRS 
(25131; :G0TO 2488 

2458 SECTOR-SECT:G05UB 18888:GO0TO0 i88 
2588 ? "TYPE * TO LOAD SECTOR "; SECTOR 
"da 

2528 INPUT SECTORS:IF SECTORS$ Ox" THE 
H 188 

2558 ? ;? “Ok. -- LOADing Now...."; 
29580 GOSUB 18888:G0T0 188 

zago REM 4444444 Save Sector 200222? 
3188 TRAP 48888:CMD-1:GRAPHICS 8:POKE 
7092,15;PRINT 
$116 ? " SAVE Sector Routine,'':? 
3298 ? " Which Sector dHEK? --? "; 
3218 INPUT SECTORS:IF SECTOR$-'"" THEN 
PRINT :GOTO 3488 

31228 IF LENTSECTORFI O 3 THEN 3888 

3238 I-ASC OOECTOR2 (1,13): JCASC GGECTORS 
(2,22) :K-ASC COOECTORS (3,33) 

3248 IF I465 THEM T-I-48:60T0 3268 
3258-1-1-55 

3268 IF J(65 THEN J-J-48:6010 31288 


8 


3528 INPUT SECTORS:IF SECTORS <3" THE 
N 188 

3558 7 ;? "Ok, -- SAUEıng Now.. 
SUB 18888:G0TO 188 

4888 REM 4(C444€€ EDIT SECTOR 3333333 
4848 GRAPHICS 8:POKE 783,15;POKE D,Di: 
TRAP 48888 

4858 7 "Sector?"; :PRINT SECTOR 

4855 POSITION 14,8:? "Filej"; 

4858 BYTE-PEEK (BUFFTt1253 :6505HB 11888 
4865 FILE-£BYTE-B£1)2-B(8)3/4;? FILE; 


0 3 560 


4878 NXTSEC-PEEK (BUFF 1256) £25 0X (BC T) X2 
*Bta3) 

4874 IF PEEK(BUFFti27))127 THEN NHTSEC 
=8 

4875 POSITION 23,8:? "Next Sec.>":NHTS 
EC 

4888 POSITION 8,1:? "$"; 

4885 K-INT(SECTOR/256):? HENS (49242, KR 
212); : KZ SECTOR-HX2565:7 HENS (NX241,H32* 
21; 

4838 POSITION 18,1:? "5"; HEKS CFILEXZ+1 
,FILEX212); 

4188 POSITION 12,1:? "$";:X-B(I)KX2tB(O 
) 

4185 ? HEXŠ(XN212,XHE217); 

4118 Y-PEEK(BHFFt120):? HEXS(YK2*1, Y? 
+23 


41687" B i 2 3 4 5 5 7 i23 
4567"; 

4178 POSITION 3,3:? CHR3017); 

4188 FOR K-i TO ë 

4184 ? CHRS (18) ;CHRS (182 ; CHRS C12) ; 
4186 NEKT K:? "-------- "s 

4288 FOR L-8 TO 15 5TEP 1 

4218 POSITION 1,L+4:7 L; 

4228 POSITION Z,it4:? CHRŠ(124); 


4248 IF PEEK(C)-5 THEN 4389 





4243 
4258 
4278 
4288 
4298 
4388 
4385 
4383 
4318 
4328 
4338 
8 

4358 
4398 
4395 
4488 
4588 
4518 


POSITION 4,L*4 

FOR PK-8 TO 7 
BYT-PEEK CBUFF *PK*L Xa) 

? HEXS (BYTX2t1,BYTX212) 5" '; 
NEKT PK 

REM ... PRINT CHARACTERS ... 
IF PEEK(C3-3 THEN 4488 
POSITION 28,it4 

FOR CH-a TO 7 

BYT-PEEK CBUFF+CHtL #8} 

IF BYT=@ THEN ? CHRS¢O};:GOTO 479 


PRINT BYTŠ(BYT,BYT); 

NEKT CH 

IF PEEK{C3-6 THEN 4588 

NEET L 

REM ...EDIT-IT.., 

? ;POSITIOM 4,21:? "H Co-ord.-5''; 


4516 INPUT KŠ:IF H$-"" THEN 188 

4517 IF K$-'"N" THEN SECTOR=NHTSEC: CMD- 
8:6051B 18888:60T0 4888 

4518 IF X$-'"P" THEN GOSUB i12888:0CL05E 
#1:G0T0 4888 

4519 IF H$-'4" THEN SECTOR-SECTORt1:CM 
D-8:6058B 18808:G0T0 4888 

4528 IF X$-'"-" THEN SECTORZSECTOR-I:CH 
D-8:6051B 18888:G0T0 4888 

4522 POSITION 4,22:? "Y Co-ord.--}"::1 
NPUT YS:IF ¥$="" THEN 188 

4524 TRAP 4588:X-UAL(X3) : Y-UAL (Y$):TRA 
P 48888 

4526 IF K(8 OR K>7 OR v48 OR Y)15 THEN 
4518 

4568 EDBYT-YXB*K:POSITION 23,21:7 "Seq 
z ";EbBYT | 

4578 POSITION 4,22:? " 

4588 
i 
4598 


POSITION 4,22:7 "New Value (HEX)- 
INPUT NUALS:IF NUALSZ"" THEN 4780 


4688 J=ASCCNVALS (1,19) : KCASC CNUAL S C2, 2 
1) 

46180 
4528 
4630 
4658 
4668 
4678 
4688 
4788 
ee 

4718 


IF J(65 THEM J-J-48:G0TO 4638 
4241755 

IF K{65 THEN K-K-48:G0T0 4658 
K-K-55 

NBYT-.Brib6tK 

? NBYT,HEES (NBYT#241, NBYTX2*2) 
POKE BUFFtEDBYT,NBYT:GOTO 4888 
POSITION 4,22:? "New Ualue <BEC>- 


INPUT NUALS:IF NUALS-'"" THEN 4888 
4728 TRAP 4788:NBYT-UAL (NVALŠI 


4718 POKE BUFFtEDBYT,NBYT: TRAP 48888:6G 
0T0 4888 


4888 POSITION 4,22:? € 
“3 

POSITION 4,22:7 “Hew (STRING) ''; 
INPUT NUALS:IF NVALŠE'"'" THEN 188 
FOR X-1 TO LEN(NUALS) 

POKE BUFF+EDBYT+H-1,ASCENVALSCH,N 


4885 
4819 
48708 
48:8 
11 
4858 NEXT H:GOTO 4898 

5888 REM {<< Examine Directory >>>) 
5828 GRAPHICS O:POKE 789,15:TRAP 48838 
;:CNT-8:CLOSE Hi 

5878 IF PEEK{CIZ? THEN OPEN 81,8,2,"E: 
H POKE 789,15:P-8:POKE D,D1:60TO 5188 
$5848 TRAP 188:0PEN Hi,8,8,"P:":TRAP 48 


298:P-i 


5858 IF PFEK(C) O7 THEN 5858 

9868 P-i 

5188 CNT-8:FOR I-8 TO 7:REM <<<Sectors 
ati? 

uii8 SECTOR-It3i61:CHMD-8:G05UB 19888 
5148 ? Hi:? Hi;"5Sector ";SECTOR;" <$"; 
9145 E-PEEK(I79)X212; Y USECTOR- INT ESEC 


TOR/25531X256)X2 
5158 ? Hi; HEKS CK, KI; HENS (Y*1,Y42) 5° > 


ila 
2 


5155 ? Hi;"Seq No: ";I;" 4$'":HEKS(TX24 
i, 28247) i^ 

5178 ? Hi;"Wo: Flag Sects Start" 

91/5 T Hi u= 
5288 FOR J-8 TO 127 STEP i6 

5285 ? HI HEXS CCHTXZ*1,CNTX242) :"' = 


K-PEEK (BUFF tJ) ;FLAG-K 

? Hi;HEXS(MK2t1,8*X212);" 0; 
K-PEEK (BiifFt.it2) 

7 H1;HEMS CKX2*2,H*X2t2); 

K-PEEK CBHFF t t1) 

? Hi;HEMSCHX2t1,4X2t2);" — “5 
K-PEEK(BUFFt jtd) 

? HL; HEXS (NE212,NE212); 

KZPEEK (BUFF * 4t 32 

7 BL: HERS UHEZT1,H8217350- |; 
X-8:IF FL0661127 THEN X-i:FLAG-8 
5488 FOR S-BUFFtJt5 TO BUFFtJti2 

3485 Y-PEEK(S):IF K THEN IF P-8 THEN Y 
-Yt128 

5418 ? HI;CHRS(Y); 

9458 NEXT 5 

2468 ? Hti;"."; 

3478 FOR S-BUFF*J*1i TO BUFFtJti5 

5488 Y-PEEK(S3:IF M THEN IF P-@ THEN Y 
-Yti28 

5485 PRINT ti;CHRŠ(Y); 

54980 NEXT 5:IF M THEN ? Bi; Xxx"; 
5588 IF FLAG}95 THEN ? Hi;" #"; 

5688 CNT-CNTti:? Hi:IF PEEK(C) O7 THEN 
G05liB 5258 


9 


5218 
5228 
2218 
5248 
2258 
5268 
5278 
5288 
2238 
5188 
3296 


5656 MEET J:BEXT I 
zgaga 7 Hi;" Re-run (Y? --7"; 
5818 IMPUT X$:IF X$-"Y" THEN 5888 


CLOSE Hi:GOTO 188 

REM {{ A Little Belay! 33 

5358 IF PEEK(C)-6 THEN 5358 

5955 IF PEEK(C3-3 THEM POP ;LLOSE Hi;G 
aTa 188 

5358 IF PEEKICI-& THER 
5361 IF PEEKICIZSE THEN POP :60T0 5188 
5965 IF PEEKICIZ?7 THEM 5355 

18888 REM ((CCC Disk Interface 2225? 
18188 PEKE 769,UNIT 

189118 IF CMD-08 THEN POKE 778,82 

18128 IF CMD-i THEN POKE 778,87 

181328 POKE 772,BUFF-INT (BUFF S256) R256 
18148 POKE 772, INTCBUFF S256) 

18158 POKE 778,5ECTOR-INT(GECTOR/2551X* 
256 
18168 
18383 


5388 
5349 


RETURN 


POKE 779, INT CSECTOR/ 2593 
AzUSR(ADRUBISKI]) 

13480 IF PEEK(7713-1 THEN RETURN 

10418 ? :? CHRŠ$(757):7? "ERROR --> “pE 
EK (77112 

18438 7 "Type <%> To Re-try „.. '': 


18458 INPUT XS:IF KSU” THEN 18388 

18478 RETURN 

18993 REM 

11888 REM (i44 Bit Map Calc. 522552 

iii88 FOR IT-8 Ta 7:BCITI-8:NEKT IT:E- 

BYTE 

iiii8 IF B2127 THEN B-B-128:B(73-1 

iii28 IF B?63 THEN B-B-64:B(6)-1 

iiii8 IF 6331 THEN B-B-:2:B(521-1 

11148 IF 8215 THEN B-8-15:B(4)-1 

11158 IF B27 THEN B-B-8:B(I)-1 

iii68 IF B?3 THEN B-B-4:R8(220-i 

11178 IF B)1 THEN B-B-2:Bti3-1 

11188 IF B5>ü THEN B(81-1 

11988 RETURN 

12888 REM <<X<< Printer Routine 2225? 

izeia TRAP 12988:0PEN Hi,8,8,"P:": TRAP 
48888 


12828 FOR Y-8 TO 28:PO0SITION &,Y 

12828 FOR H-8 TO ZI:GET H6,A:IF A<3Z Q 
R 42122 THEN ñ-42 

12848 PHT Hi,Aa:NEXT Hi? Hi:NEKT Y:? Hi 
(CLOSE BI:RETURN 

12388 ? CHRS(Z5TI “ERROR ->";PEEK (851) 
12310 ? "<RETURND To Continue .."; :INP 
UT OPTS:RETURN 

30688 DATA i84,:7,0:,228,96 

32767 END 


QUICKSORT ACTION 


po FILE: QUICKSRT.ACT 


INCLUDED: SORT. ACT" 


; This uses the Quick Sort 
; Procedures from the 
; ACTION Toolkit . 


z KEIKEIDODOOHOOHOBOBO/BOOBHOOÓHOO/ÓODOEO/EE 


i 
* 
MODULE 
B 
i JBOBOOOOBOOHOOHCOBIOHOHBOHOOOESOOBOHEHE 


# 


HOEFINE GLOBAL YARIOBLE 


BYTE KEY,FLAG-I[81,TYP, HFLAG 
CARD ARRAY SCIB8BB) 
CARD 


N,K,I,T,H, 
R,N2,L,LL,HOLD,RR, J, HOLD2, JJ,R2 


: JOOOIOOOODOOOODHOBOBDHOOOHOOBOHOOOOEBOE 


; 


¥ 


PROC SETKEY (3 HGETKEY ROUTINE 


: KEIJEOHOOOOOHOODOOBDOOODOHOOOHOOHOBOORORE 


Li 


x 


POKE (764,255) 
DO UNTIL PEEK (76434255 OD 


KEYZPEEK (764) 
POKE (764,255) 


RETURN 


o FERRE IEE REBECCA IEEE EE SER EE SESE 


£ 


* 


PROC TIMERO — ira 
` JCEIERHEIEREERHEIOIERERERHOXERHEREREROEIRENEIEIEICIOIERERENENCNEN, 


I 
# 


po 
PRINT("How many items do “) 
PRINT ("you want to sort") 
PRINTEC" ") 
PRINTE(C" '') 
PRINTE ("Max = 999, Minimum = 18 
") 
PRINTE(" “3 
PUTC'?)  NZINPUTCO 
UNTIL H)9 AND NCi888 
0d 


OPEM(Z,'"D:NUMIO88. RAN", 4,83 
»PEN(Z,"D:NUMI800.SRT",4,0) 
FOR Izi TON 
po 

A-INPUTCD (3) 

S(IJ-A 
OB 
CLOSE (3) 


TIMERO 
RETURN 


: EEE IEEE TEE IEE 


, 


x 


PROC PRNTSO HPRINI RESULTS 
` EIIHOOOOOOHEDIOHOOHOOBOHHEHOOHHOBEOHOE 
2 


* 
CARD TEMP 
GETKEY( 


FüR I-1 TO N 

po 

IF KEY-28 THEN EXIT FI 
PRIMTC CI} 
PRINT Cd" 
TEMP-S (CI) 
PRINTCE CTEMP) 

OD 


RETURN 
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FROM LAST ISSUE 


CARD time 
BYTE P18-18,P19-19,p20-20 - 


-— 


flag - i-flag 
IF flag-8 ; not ist call 
THEN time = p28 + 256% 


(pid + 256Xp18) 
Print("Elapsed Time: ") 


PrintC(tine/68) 
PRINT(" AND '') 
PRINTCL(TIME MOD 68) 
PrintE("/68 second5") 


FI 

pi8-8 ; reset 
pi9-8 ; the 
p28-8 clock 


RETURN 
ae 22 220 00 3 2 2 2 21212212122 2121202120202 2720202020203 
2 


x 


PROC FIRSTSCREENO HCLEAR AND PRIN 


T 
JXEIERCIOHEREREIENEHIEIOHCIOOHOHEOHOBOOOOOOOOE 


s 


om 


BYTE J§,FIRST-(@] 


IF FIRST=@ THEN GRAPHICS(8) FI 
FIRST--*i 
POKEC712,8) 
J-RAND (16) 
POKE (789,12) 


POKEC718,4*16XJ) 


PRINTE(" ") 

PRINTE("This is a demonstration of") 
PRINTE ("the Quick Sort Procedure’) 
PRINTEL" '') 

PRINTE(" ") 


RETURN 


IRAE TERRE DEERE ERE 


4 
AINITIALIZATION ROUTINE 


x 

PROC INITO 

ABBR HAR EE ITEP TERETE 
$ 


* 


CARD A 


FIRSTSCREEN CO 





i8 REM 


28 REM 


OLD TEXT 





** OLD TEXT BY M.BYFIELD 393 





šč 


* 


38 REM IF THIS 15 GOING TO BE PHT INTO 
ñ PROGRAM THEN IT TO DISK 
OR CASSETE. 

48 REM THEN PUT IN ñ GOSUB 38898 AND 
CHANE LINE 38118 TO RETURN. 





NEH CHARACTER SET 


38885 REM EN IOA ROM INTO. ROM 





38818 CHBASE-120%256 

38828 DIM CHARS (34) :RESTORE 78848 
38838 FOR Izi TO Z4:READ A:CHARŠ KI, II- 
CHRS (A) :NEXT I 

38849 DATA 164,104,133,215,104,133,214 
‚163,224,133,213,169,8,133,212,162,4,i 
68,8,177,121,145,214,288,7288 

30858 BATA 243,238,213,138,215,282,288 
‚242,96 
AZUSRTADR (CHARS) , CHBASE) 


REM Wila. a AN rr MIZE 


FOR IB TO 1823 


38B58 
38878 
38888 
38898 
38188 
38118 


38168 
38178 
38188 
38138 
38288 
58 
38218 
38228 
? 
38238 
38248 
38258 
38258 
38278 
18238 
38388 
38318 
38328 
ü 
38338 
38548 
38358 
38I68 


38378 


READ 
POKE 
STOP 


REM 

DATA 
DATA 
DATA 
BATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
BATA 


DATA 


CH:POKE CHBASETI,CH:NEXT I 
756,128 
:REM CHANGE TO RETURN IF 
USED IN A PROGRAM. 
MAIN CHARACTER DATA 
8,8,8,0,8,8,8,8,8 
24,24,24,24,8,24,8,8,182 
182,187,8,8,8,8,8,182,255 
182,182,255,182,8,24,62,96, 


0,124,24,8,8,182,188,24,48 
182,78,8,28,54,28,56,111,18 


»7,8,8,24,24,24,8,8,8 
8,8,14,28,24,24,28,14,8 
8,112,56,24,24,56,112,8,8 
182,58,255,58,182,8,8,8,24 
24,126,24,24,8,8,8,8,8 
9,8,24,24,48,8,8,8,126 
8,8,8,8,8,8,8,0,8 
24,24,8,8,5,12,24,48,96 
64,8,8,58,182,118,118,182,5 


8,8,24,56,24,24,24,125,8 
8,68,182,12,24,48,126,8,8 
126,12,24,12,102,68,8,8,12 
28,68,198,126,12,8,8,176,96 


124,6,182,68,8,8,68,96,124 


38388 
38738 


38418 
38428 
38438 
38448 
38458 
30468 
38478 
38488 


32498 
7 

38588 
38518 
38538 
38548 
$8558 
38568 
38578 
$8588 


iii 
38578 


38688 
38618 
128 

$0628 
38638 
38658 
48668 
38678 


38688 
38638 
38788 


38718 
38728 
38738 
38748 
38758 
38778 
38788 
38798 
38588 
38818 
38828 
38838 
30848 
38858 
š 
38868 
38878 
30838 
2,8 
38388 
38318 


DATA 
DATA 


DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
PATA 
DATA 
DATA 
DATA 
PATA 
DATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 


BY 


182,182,68,8,8,126,6,12,24 
48,48,8,8,68,182,68,182,187 


2.8 


68,8,8,68,182,62,6,12,56 
9,8,8,24,24,8,24,24,8 
8,8,24,24,8,24,24,48,6 
12,24,48,24,12,6,8,8,8 
126,8,0,126,8,08,96,48,24 
12,24,48,36,8,0,68,182,12 
24,8,24,8,0,69,102,118,118 
36,62,8,8,38,55,183, 187,111 


22,8,8,38,51,115,126,115,17 


8,8,38,51,96,96,112,63,8 
8,68,182,99,99,99,126,8,8 
38,51,36,124,96,127,8,8,38 
91,76,124,76,96,8,8,38,51 
36,118,33,62,8,8,99,99,99 
127,32,35,8,8,127,24,24,24 
24,127,8,8,3,3,3,115,54 
60,8,8,183,118,124,124,188, 


8,8,1172,112,36,96,33,127,8 
@,99,99,119,127,187,99,8,8 
124,118,118,118,118,115,8,@ 


94,399,93,54,28,9,0,38,54 
21,52,48,48,8,80,28,54,22 
393,111,52,3,8,68,54,54,62 
21,51,8,8,38,51,96,62,3 
127,8,8,63,188,188,12,12,27 


@,8,51,51,51,51,99,62,8 
8,23,232,93,54,68,24,8,8 
33,39,187,127,113,99,8,8,99 


182,68,28,54,22,8,8,29,923 
94,38,17,24,8,80,631, 182,12 
24,51,126,8,8,30,24,24,24 
24,38,8,0,64,96,48,24,12 
6,8,0,128,24,24,24,24,128 
8,8,0,28,54,23,8,8,8 
0,0,8,8,8,8,255,8,8 
54,127,127,52,28,8,8,24,24 
24,31,31,24,24,24,3,3,3 
3,3,3,3,3,24,24,24,248 
248,8,0,8.24,24,24,248,248 
24,274,24,0,8,8,248,248,24 
24,24,3,7,14,28,56,112,224 
132,132,224,112,56,28,14,7, 


1,3,7,15,31,63,127,255,0 
8,8,8,15,15,15,15,128,192 
224,2480,248,252,254,255,2,4 


21,21,8,42,2,32,178,0,84 
84,8,178,158,255,255,8,8,8 


11 


BYF 


309428 
58928 


30748 
38958 


. Z89368 


38370 


28386 
278 
39399 


92,192 


31818 
á 

41828 
31838 


48,248 


31848 
1858 
31868 
31878 
31858 
31898 
31188 
31118 


31138 
31148 
31158 
31168 
31178 
24 
31188 
Zil38 
31288 
31218 
312278 
31228 
8 
31258 
z 
31268 
82 
31278 
82 
31288 
31238 
31388 
31318 
31328 
31338 


31348 
31358 
24 

31378 
31388 
31398 
31486 


IEL 


DATA 
DATA 


DATA 
DATA 
BATA 
DATA 


DATA 


DATA 


DATA 


DATA 
DATA 


BATA 
BATA 
DATA 
BATA 
DATA 
BATA 
DATA 
DATA 


BATA 
BATA 
DATA 
BATA 
DATA 


DATA 
DATA 
BATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
BATA 


DATA 
BATA 
BATA 
DATA 


TY 


2,8,8,8,8,8,8,8,8 
255,255,8,8,8,8,248,248,248 


248,8,28,28,119,119,8,28,8 
6,8,8,31,31,24,274,274,8 
@,8,255,255,6,8,8,24,24 
24,255,255,24,24,24,8,8,168 


84,47,84,158,0,711,85,255,1 
178,255,85, 92,192,192,1927,1 
132,132,192,8,9,0,255,255,2 


24,24,24,24,24,255,255,0,8 
0,248,248,248,248,248,748,.2 


24,24,24,21,21,8,8,9,128 
36,128,96,176,24,30,0,0,24 
58.176,24,24,24,8,8,24,24 
24,126,68,24,8,8,24,48,126 
48,74,0,0,8,724,12,126,12 
24,8,0,0,724,68,1275,126,68 
24,8,8,0,18,54,118,118,1593 
0,8,36,96,124,182,182,2573,8 


8,8,58,1172,96,112,223,8,8 
6,6,52,182,187.255,8,8,à 
28,54,54,28.247,80,0,28,56 
48,52,123,217,28,8,8, 38,59 
114,222,135,658,8,26,96,936,1 


182,211,8,80,24,8,24,24,125 
135,8,0,28,8,28,68,111,285 
68,8,48,48,52,54,68,247,8 
8,24,24,24,24,24,2311,80,8 
8,51,127,127,213,213,9,8,8 
124,182,182,.182,271,8,9,0,6 


182,1831,231,68,0,8,0,124,18 
182,124,231,36,98,8,62,182,1 
126,143,14,8,8,96,126,162,1 


135,8,8,8,14,27,51,99,223 
8,8,12,61,12,12,28,247,8 
8,8,115,51,51,51,221,8,8 
8,92,54,54,127,285,8,8,8 
33,39,187,127,221,9,8,8,51 
126,118,213,177,8,8,8,27,27 


31,24,287,24,8,8,8,182,91 
213,131,62,8,24,68,126,126, 


68,8,24,24,24,24,24,24,24 
24,8,8,8,24,74,8,8,8 
$,24,56,128,56,24,8,8,16 
24,28,30,28,24,16,8 


REM Modification to £05 2.5 to 
REM store DUP.5Y5 and MEM. SAY 

REM in the bank Switch RAM 

REM behind the 05 ROM from 5C880 
REM to $F8ff 

REM 

REM This Mod for 64K KL's only 

REM Adapted from ANALOG 824 by 

REM Robert Luce 

REM 

REM XGORRAHCODCRHOOIOUERODEUIECRHIBHOUUHECRGEN 
REM written by Alec Benson 6/85 
REM from ADELAIDE Atari 
REM Club, Box 333, Norwood, 
REM Australia 5.8. 5867 Aug '85 
Dp EGRE GR NODE RHOD LEJ POJEM RE SE 
REM REPRINTED ACE Newsletter 

REM 3662 Uine Mapie, Eugene, OR 
CEK-B:DIM A51339 

? 1? "Reading Data...." 

FOR I-1 TO 339 

REAB ñ 

CK=CK+A 

ñS (LEN (AS) 41) =CHRS (A) 

158 NEXT I 

158 IF CK<}41072 THEN ? "ERROR IN DATA 
STATEMENTS-CHECK TYPING": END 

i78 OPEN Hi,8,8,"D:PATCH25,0BJ''; PRINT 
Hi; AS; CLOSE Hi 

188 ? :? :? "D:PATCH25.08J CREATED: END 
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i888 DATA 255,255,231,28,233,20,32,192 


18 
11 
12 
13 
14 
15 
16 
28 
21 
22 
23 
24 
ze 
zi 
33 
34 
48 
41 
188 
185 
118 
128 
138 
i48 


DATA 
DATA 


1818 
1828 


23,70,23,138,23,32,85,24 
169,8,133,212,133,214,169,29 
18:8 DATA 
16 

1848 
2 

1858 
1868 
š 

1878 
1888 
1838 
I6 

1188 
1118 
1128 
1138 


133,215,169,192,133,213,162, 
DATA 32,119,24,169,216,133,213,16 


DATA 
BATA 


7,32,119,24,32,78,24,96 
169,8,1373,212,169,224,133,21 


DATA 
DATA 
DATA 


168,8,162,3,177,212,72,32 
85,24,184,145,212,12,78,24 
288,288,241,238,21:,282,16,2 


BATA 
DATA 
DATA 
DATA 


96,214,182,23,8,24,248,71 
32,78,23,285,158,23,48,65 
32,108,21,32,185,23,169,255 ` 
141,158,21,141,157,21,162,16 


169,47,157,68,3,169,24,157 
69,3,32,164,21,32,85,24 
162,21,169,8,133,212,135,2i4 


BATA 
BATA 
DATA 


1148 
1158 
1168 


t 


PATCH 2.5 


1178 DATA 169,31,133,215,169,228,133,2 
13 
1188 


1138 


DATA 32,119,24,32,78,24,169,8 
DATA 141,157,21,141,158,21,76,146 


25,19,24,39,24,32,85,24 
169,0,133,214,133,212,169,22 


DATA 
DATA 


1288 
1218 
133, 215,169,31,133,213,162,2 


1228 BATA 


288,18,58,24,146,24,12,112 
24,32,78,24,286,157,21,76 
152,32,32,182,24,88,169,112 
141,14,212,169,18,141,14,218 


DATA 
DATA 
DATA 
BATA 


1238 
1248 
1258 
1268 


BATA 
DATA 
DATA 
DATA 
DATA 
DATA 


36,128,169,8,141,14,212,141 
14,218,173,1,211,41,254, 76 
107,24,173,1,211,9,1,141 
1,211,96,234,234,234,234,32 
156,25,96,168,8,177,214,145 
212,208,288,249,230,213,238, 


1278 
1288 
1238 
1388 
1318 
1328 
215 
1338 
i4 
1348 
63 
1358 
1368 
13 
1378 


DATA 


BATA 274,234,274,234,234,234,234, 


DATA 25,109,25,32,85,24,169,8 


DATA 


DATA 


24,169,216,133,215,162,7,32 
119,24,32,70,24,96,214,214 
234,234,234,234,234,234,234, 


DATA 
DATA 
DATA 


1388 
1338 
1488 
234 

1418 
1428 


234,734,49,31,53,31,178,174 
181,216, 204 


DATA 
DATA 


TONEDIAL 


ia REM #48 TONE DIAL 

88 DIM Fi(1i1),F2411),c1411),€2411),PN? 
(783 

38 FOR K-8 TO 3:50UND K,0,8,B:NERHT K:P 
OKE 53768,128 

188 FOR K-8 TO 11:READ A,B,D,E:Fi(XI-A 
»C1(X)7B:F2(XI-D:C2(XI<E:NEKT K 

128 ? "ENTER H" 

138 INPUT PNS: TRAP 128 

158 FOR K-i TO LENCPNS) 

218 N<YAL(PNŠKE,KI) 

338 POKE 53762,Ci(N):POKE 53760,Fi(M): 
POKE 53766, C2IN):POKE 53764,F24N) 
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282,288,242,96,234,234,234,2 


248 
258 
278 
238 
388 
338 
358 
368 
378 
388 
338 
488 
418 
428 
438 
448 
458 
468 


POKE 53767,158:POKE 53763,168 
FOR D-i TO 16:WEXT D 

POKE 53767,8:PÜKE 53763,8 
FOR D-1 TO 8:NEXT D 

NEXT X 

GOTO 128 

DATA 158,2,176,3 

DATA 221,2,253,4 

DATA 158,2,253,4 

DATA 87,2,253,4 

DATA 221,2,131,4 

DATA 158,2,131,4 

DATA 87,2,131,4 

DATA 221,2,19,4 

DATA 158,2,19,4 

DATA 87,2,19,4 

DATA 221,2,176,3 

DATA 87,2,176,3 


cet TE OMAN 


SORT 
COM" W 


JGGEIERREIENHOIOHHOHHEEOBOOOHBEOHODIOBOHOOEE 


a 
# 


x 
133,212,133,214,169,29,133,Z pROC MAING 


: KIEROOOOOOOOOHHEOOHHOOHEHCHEBOHOBEOEN 


# 


169,192,137,215,162,16,32,11x 


po 
INITE 


CSORT{5,N, 83 
TIMER 


POKE (752,1) 
PRINTE(C" "3 


PRINTE(" Press any key to see list") 


printet” Press ESC to exit") 


PRH#T50 
IF KEY-28 THEN EXIT FI 


RETURN 


SECTOR 


The Missing Link 
(reprint: Page 6) 

The idea of SECTOR is to allow those of you with an Atari 810 disk 
drive to experiment without being limited by DOS to the file structure. 
With SECTOR you are able to load, edit, and save ANY sector on the 
disk. With a reasonable understanding of DOS Il's file structure you can 
perform all kinds of “nifty” things, such as retrieving deleted files and 
repairing damaged files. Examining and altering auto-boot disks is also 
greatly simplified. As an understanding of the way data is stored by DOS 
Il will be of help, | will briefly outline its file structure. 

The 810 drive organizes the floppy disk as a collection of numbered 
blocks of bytes called “sectors”. There are 720 sectors or blocks, and 
each holds 128 bytes or characters. As each file is created, an empty 
block is found and the data is poured into it. When the sector is filled, 
for another free sector has to be allocated and somehow linked to the 
first so when the file is being read the second sector can be found. 

The directory information for this file only tells the DOS where to 
find its first sector. So how does DOS find the rest of the file? Well, only 
125 bytes in each block are used for the user's data. The remaining Ə 
bytes are kept and used by DOS to provide 3 functions: 1. To point to 
the next sector in the file; 2. To say which number file the sector belongs 
to; and 3. To indicate if the sector is a “short” sector, and if so how many 
bytes are valid. 

The pointer is obviously the key to the way in which DOS finds the 
next sector allocated to the file. The second function is not really 
essential, but it is useful, because as DOS created the file it notes the 
occurrence of the file's name entry in the directory and places this 
number into one of the last 3 bytes of each sector used by the file. 
Whenever the file is read back, if there is ever a discrepancy between 
the value of this byte and the directory, DOS assumes there has been 
some problem. It will report this to the user as the dreaded “ERROR 164” 
file number mismatch. 

This unhappy event is usually caused by the careless user either 
"BREAK"ing or "SYSTEM REST”ing during a disk operation, or swapping 
disks in a drive while a file is still open on the drive. Both are !!* *!!* 
mistakes which shouid be avoided at all costs! 

The last function is a vital one, for a file may not have used all the 
bytes in its last sector, and if this is the case DOS needs to know this 
fact and how many bytes of that sector are allocated to the file. There 
are 3 functions and 3 bytes, so it seems logical to have one byte per 
function. This cannot be so, however, because there are 720 sectors 
on a disk. So more than one byte is needed to store the next sector 
information. Since the directory position byte number does not have to 
be larger than 63, it does not require all 8 bits of its byte, so two of its 
bits are used by the next sector pointer. 


BITS 
T 6 B 4 xE | V 


FILE NUMBER [2HIGH 

















eno]. > 
1 è i us E uJ 
NEXT SECTOR POINTER | 126 — 
: i 
1 1554 TET t m 
BYTE COUNT 127 


This is how the sector's bytes are allocated. Looking at the diagram 
you will see one of the bits has not been explained yet, the "S" bit on 
byte 127. If the last sector of a file is not completely used, then the "S" 
bit is set to logic high, and the BYTE COUNT will give the actual number 
of valid bytes. 

THE DIRECTORY 

There are 8 sectors (361-368) allocated to the disk directory, each 
holding 8 entries; i.e., 64 entries total. The 16 bytes of each file directory 
are allocated as follows: 


FLAG BYTE 


SECTOR 
COUNT 


STARTIN 
SECTOR 


FILENAME 


EXTENSION 





The flag byte is used to indicate 
the status ot the file and the bits are 
mapped as follows: 

BIT No * IF SET HIGH, THEN 

BIT 7 * FILE HAS BEEN DELETED 
BIT 6 * FILE ENTRY EXISTS 
BITS*FILEISLOCKED 

BITO * FILE IS OPEN FOR OUTPUT 


The flag byte is used to indicate the status of the file and the bits 
are mapped as follows: 

BIT #— — — — If set HIGH, then 

7 File has been deleted 

6 File entry exists 

5 File is locked 

O File is open for output 

Thus the flag byte may have the following values: 

VALUE — ———— STATUS 

$00 Entry not yet used 

$40 Entry in use (normal closed file) 

$41 Entry is in use (and file is currently open for output) 

$60 Entry is in use (AND file is locked) 

$80 Entry is available (prior file has been deleted) 

The sector count (number of sectors in the file) and the starting 
sector number are obvious, as is the filename. Note, however, that DOS 
does not insert the full stop before the extension. The directory manager 
routines remove and insert this for the user's convenience. 


THE PROGRAM 

The precise format of the program is important, so be careful to 
include the correct number of spaces and characters where applicable, 
otherwise you may find some strange numbers will result. The program, 
when first RUN, will take over 10 seconds to initialize its string and arrays, 
so if you BREAK out of the program you can resume it by typing GOTO 
100 and avoid the long 10-second wait. This continues without having 
to re-initialize! The program is based around a menu and has 5 options. 

1. Normal Directory Listing: This gives the standard disk directory 
listing in two column format. Typing RETURN will take you back to the 
menu. Any other key will re-run the directory. 

2. Load Sector: This allows you to load a sector into the buffer, and 
will first ask you for the sector number in "HEX", i.e. 001 to 2DO. Typing 
RETURN only will cause the program to ask for a decimal value in the 
range 1 to 720. A further RETURN will allow you the option of loading 
the current sector by typing '"'. 


3. Save Sector: This is identical to the load sector option in use. 

4. Edit Sector: This is the major section of the program. The current 
buffer contents are displayed in the form of a matrix, and there are several 
options available. These include: 

Pressing START aborts the matrix display and asks for the X and 
Y coordinates to edit; 

Pressing OPTION suppresses the printing of the hexadecimal buffer 
listing, but still gives the character; 

Pressing SELECT suppresses the printing of the character buffer 
listing, but still gives the hexadecimal byte value table. 

When the program asks for the X co-ordinate to edit, the following 
commands are avallable: 

+ loads and displays the next disk sector. 

- loads and displays the previous disk sector. 

N loads and displays the next sector in the same file as the current 
sector (if valid). 

P dumps the display to a printer. 

If none of these options are required, you can either type RETURN 
to get back to the main menu or type the X co-ordinate of the byte you 
wish to alter. You will then be asked for the Y co-ordinate, after which 
you can insert the hex or decimal number, or an ASCII string. 

5. Examine Directory Sectors: This allows you to examine the disk's 
directory sectors directly. It prints out the flag byte, the number of 
sectors, and the starting sector for each file entry to the screen. If the 
START key is held down while this is entered, everything is printed to 
the printer rather than to the screen. Pressing START after the routine 
has been entered will pause the output to screen or printer. SELECT will 
retart at the first directory sector, and OPTION will return you to the main 


"^ menu. 


USING SECTOR 
Quite apart from simply experimenting and learning about the disk 
system, there are many practical uses for SECTOR. For instance, if you 
have accidentally deleted an irreplaceable file on a disk, it can be retrieved 
by finding its old directory allocation using option 5 (examine directory 
sectors), then using the sector edit facility to alter the FLAG byte to $40. 
You should then copy off to a fresh, formatted disk all the desired files. 
One important part of the ATARI DISK SYSTEM is the VOLUME 
TABLE OF CONTENTS (sector 360) in which DOS keeps track of which 
sectors are in use and which are free for new or extended files. This is 
the subject of another article. Meanwhile | hope you have many 
interesting hours of experimentation. 
— Ron Levy 


MEETING 
WEDNESDAY 


NOVEMBER I3TH 


7:30 PM 
SOUTH 


TINCT 
FÜGENE 


HIGH 
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Solder two wires to the two conductors on the jack. Join the two 
cut wires from the speaker with the ones from the jack. Make sure you 
have got the right wires going where. In other words, the connection 
to the speaker is the same except in the middle the leads of the jack 
are attached to pick up the signal. You’ve got to protect these, so either 
wrap electrical tape around them or use those insulated connectors. 

Now you're done with the TV set. It's time to solder two wires to 
the two conductors of the plug. Hey! You with the earphone in your TV, 
wake up! You’ve got to do this too! Ok, now you have two wires coming 
from your plug. Take these two wires and wrap them to the two wires 
on the side of the transformer which has two wires (The other side has 
3, that's the 1000-ohm side). Once again, protect these connections. 

Take the other side of the transformer, the one with 3 wires, and 
connect the two on the outside to the red and green wires of the phone 
line. You can do this anyway you want, | leave it up to you. | suggest 
protecting the transformer somehow. Mine is in my phone. Well, you're 
done! 

TONE DIAL is a program which generates the tones and puts them 
through the speaker. However, | didn't write this. It’s from ("Gasp", 
Copyright!) A.N.A.L.O.G. Magazine issues 19 and 21. 

Theoretically, this should work with ANY modem if you can put the 
subroutine into the terminal program. | know it works on the 835, | own 
one! So, now you can tone dial like the big modems do. 


 FSUE BY RALPH WALDEN 


/* ZSIZE.C - returns size of file X/ 
ftinclude "getname.,c" 


maino SL 
char name[281; 
int iocb,lIen,divisor,kbytes,reMain; 
fasti); 
iocb-getreadtname," "); 
divisor- (peek (@xi31i+ (name [11-'8'3) 


zz 2) ? 257:125; 
/* single or double density sectors * 
£ 

inverse (name) ; 

len-bgets (lomen(188),highmem() - 
lomemi188),iocb); 

closealli); 

kbytes-len/1824; /* number of K %/ 

remain-CClenZ1824) X18) /1824; 

printi isind bytes, “d.7dKk\n", 
naMe,len,kbytes,remain); 

printf("Zd sectors + Xd bytes\n\n", 
len/divisor,lenZdivisorl; 

exitO0; 
$) 


/* convert a string to inverse 
characters #/ 
inverse (str) 
char Xstr; 
$t 
while (wstr) Xstrt* |-128; 
/* OR the inverse bit X/ 
$) 


10711785.,..sF8llDwing is the text 
of an official press release 
issued today by Sam Tramiel, 
president or Atari LOG. ; 
concerning the recent agreement 
between DRI and Apple. 


SUNNYVALE, CALIFORNIA -- In an 
agreement between Digital 
Research and Apple Computer, 
Digital Research has agreed ta 


make certain superficial changes 


to three of its application 
programs: "SEM Desktop”, "ET 
Paint", and "GEM Draw”. Contrary 
to reports, the agreement does 
not require changes to GEM orto 
Atari Corp.’s 105 
uperatingsystem. 

DRI, as part of its normal 
development process, has prepared 
enhancements to its GEM 
application products which 
further set it apart from the 
Apple Macintosh. Atari 1s 
reviewing these changes. Atari 
promises to its software 
developers and custmers that 


Atari will make no changes that 
will reduce the capabilities of 
the Atari ST system and software. 
Further, Atari promises that anu 
enhancements will maintain 
compatability with GEM 
applications software on the 
market and in development. 


Digital Research’s GEM and the 
applications software which uses 
its capabilities will continue 
toprovide the most powerful 
andeasy-to-use computer interface 
onthe market. The Atari 5205T 
continues to be the most powerful 
computer delivering these 
features and will continue to do 
so at an affordable price. 
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FADEOUT 


ie GOTO 388 

37 REM HKHH 

38 REM X FADE IN AND OUT SUBROUTINE x 
39 REM IHR 

i88 D-3 

did FOR L-8 TO 14 STEP Z 
i28 SETCOLOR i,8,L 

158 GOSUB DELAY 

148 NEXT L 

158 B-188:605UB DELAY:b-Z 
168 FOR L-14 TO 8 STEP -Z 
i78 SETCOLOR 1,8,L 

188 G0SHB BELAY 

i198 NEKT L 

137 REM 3330 

198 REM X DELAY SUBROUTINE X 
199 REM xx 

288 POKE 28,8 

218 IF PEEK(28)4D THEN 218 
228 RETURM 

237 REM xxx 

238 REM * INIT ROUTINE * 
239 REM XXX 

788 GRAPHICS 8 

ii8 POKE 752,1 

128 FüDE-188:DELAY-288 

338 SETCOLOR 1,8,8 

348 SETCOLOR 2,0,8 

147 REM XXX« 

i48 REM X MAIN LOOP X 

749 REM XXKK 

i58 7 CHR$(CI25) 

368 POSITION 18,8 

378 ? "THIS IS AN EXAMPLE” 
738 POSITION 17,18 

i38 ? "OF" 

488 POSITION 13,12 

4i8 ? "FADING TEXT" 

428 GOSUB FADE 

4x8 D=28:605U8 DELAY 

448 ? CHRSCI25J 

458 POSITION 6,18 

468 ? "THE LETTERS FADE IN AND OUT" 
478 GOSUB FADE 

488 D-28:6050B DELAY 

498 GOTO 358 


Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 
All our articles, reviews and programs come from you, our members. 
Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 
503-686-1490 
8-bit Librarian— Chuck 8 Jody Ross, 2222 Ironwood, Eugene 97401 
(503) 342-4133 
ST Librarian— Jim Bumpas, 4405 Dillard Rd., Eugene OR 97405 
503-484-4746 
Editors — Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 
503-484-4746 
E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
. updated ACE Library List—new in May 85! 
Bulletin Board 
(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double- 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 
Best of ACE books 
Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 
Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 
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IYPESETIING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 


— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


sching ex Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume 1covers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 
Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 





